home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Unix / satan-1.1.1 / perl / domains.pl < prev    next >
Text File  |  1995-04-10  |  2KB  |  111 lines
  1. #
  2. # sift by domains
  3. #
  4. # Output to: 
  5. #
  6. # $all_domains{domain}: hosts in this domain
  7. #
  8. # host_domain{host}: the domain of this host
  9. #
  10. # $domain_count{domain}: number of hosts in this domain
  11. #
  12. # $domain_severities{domain}: nr of vulnerable hosts in domain
  13. #
  14. # $domain_flag: reset whenever the tables are updated. To recalculate,
  15. # invoke make_domain_info().
  16. #
  17. # Standalone usage: perl domains.pl [data directory]
  18. # 
  19.  
  20. #
  21. # Generate domain statistics.
  22. #
  23. sub make_domain_info {
  24.     local($domain, $host);
  25.  
  26.     if ($domain_flag > 0) {
  27.     return;
  28.     }
  29.     $domain_flag = time();
  30.  
  31.     print "Rebuild domain type statistics...\n" if $debug;
  32.  
  33.     %all_domains = ();
  34.     for $host (keys %all_hosts) {
  35.     if ($host =~ /^[\[\]0-9.]+$/) {
  36.         $domain = "unknown";
  37.     } else {
  38.         ($domain = $host) =~ s/^[^.]+\.//;
  39.     }
  40.     $all_domains{$domain} .= "$host ";
  41.     $host_domain{$host} = $domain;
  42.     }
  43.  
  44.     # Cheat, in case the facts file has names not in all-hosts.
  45.  
  46.     for $host (keys %hosttype, keys %severity_host_count) {
  47.     if ($host =~ /^[0-9.]+$/) {
  48.         $domain = "unknown";
  49.     } else {
  50.         ($domain = $host) =~ s/^[^.]+\.//;
  51.     }
  52.     if (!exists($host_domain{$host})) {
  53.         $all_domains{$domain} .= "$host ";
  54.         $host_domain{$host} = $domain;
  55.     }
  56.     }
  57.  
  58.     for $domain (keys %all_domains) {
  59.     $domain_count{$domain} = split(/\s+/, $all_domains{$domain});
  60.     $domain_severities{$domain} = 0;
  61.     for $host (split(/\s+/, $all_domains{$domain})) {
  62.         $domain_severities{$domain}++ if exists($severity_host_type_info{$host});
  63.     }
  64.     }
  65. }
  66.  
  67. #
  68. # erase the domain info tables
  69. #
  70. sub clear_domain_info {
  71.     %all_domains = ();
  72.     %host_domain = ();
  73.     %domain_count = ();
  74.     %domain_severities = ();
  75.     $domain_flag = 0;
  76. }
  77.  
  78. #
  79. # Stand-alone mode
  80. #
  81. if ($running_under_satan == 0) {
  82.     warn "domains.pl in stand-alone mode...";
  83.     $running_under_satan = 1;
  84.     $debug = 1;
  85.     require 'perl/targets.pl';
  86.     require 'perl/severities.pl';
  87.     require 'perl/facts.pl';
  88.  
  89.     &read_all_hosts("$ARGV[0]/all-hosts");
  90.     &read_facts("$ARGV[0]/facts");
  91.     &make_domain_info();
  92.     &make_hosttype_info();
  93.  
  94.     print "Missing domain info\n";
  95.  
  96.     for (keys %hosttype) {
  97.     print "\t$_\n" if !exists($host_domain{$_});
  98.     }
  99.  
  100.     print "\nDomain info\n";
  101.  
  102.     for (keys %all_domains) {
  103.         print "Domain: $_ $domain_severities{$_}/$domain_count{$_}\n";
  104.         for (split(/\s/, $all_domains{$_})) {
  105.             print "\t$_\n";
  106.         }
  107.     }
  108. }
  109.  
  110. 1;
  111.